home *** CD-ROM | disk | FTP | other *** search
Wrap
<!-- #include file="i_utils.asp" --> <% check_security(1) %> <% dim CityID dim MajorCity dim State dim edit_lumetro_sql dim view_lumetro_sql sub request_edit_lumetro ''' request expected input parameters for this form CityID = request("CityID") MajorCity = request("MajorCity") State = request("State") end sub sub request_view_lumetro ''' request expected input parameters for this form CityID = request("CityID") MajorCity = request("MajorCity") State = request("State") end sub sub validate_edit_lumetro ''' request and validate data entered from this form CityID = trim(request("CityID")) MajorCity = trim(request("MajorCity")) State = trim(request("State")) end sub sub validate_view_lumetro ''' request and validate data entered from this form CityID = trim(request("CityID")) MajorCity = trim(request("MajorCity")) State = trim(request("State")) end sub sub db_select_edit_luMetro sql = "SELECT " & _ "CityID, " & _ "MajorCity, " & _ "State FROM luMetro" & _ " WHERE " & _ "luMetro.CityID = " & to_sql(CityID,"number") & "" on error resume next set rs = cn.Execute(sql) if err.number <> 0 then b_error = true elseif rs.EOF then b_results = false else CityID = rs("CityID") MajorCity = rs("MajorCity") State = rs("State") end if rs.Close on error goto 0 end sub sub db_insert_edit_luMetro sql = "INSERT INTO luMetro" & _ "(" & _ "MajorCity," & _ "State" & _ ") VALUES (" & to_sql(MajorCity,"text") & "," & _ "" & to_sql(State,"text") & ")" & _ "" 'response.write sql on error resume next cn.Execute(sql) if err.Number <> 0 then b_error = true else set rs = cn.Execute("SELECT @@IDENTITY") CityID = rs(0) rs.Close end if on error goto 0 end sub sub db_update_edit_luMetro sql = "UPDATE luMetro SET " & _ "MajorCity = " & to_sql(MajorCity,"text") & ", " & _ "State = " & to_sql(State,"text") & " WHERE " & _ "CityID = " & to_sql(CityID,"number") & "" 'response.write sql on error resume next cn.execute(sql) if err.number <> 0 then b_error = true end if on error goto 0 end sub sub db_delete_edit_luMetro sql = "DELETE FROM luMetro" & _ " WHERE " & _ "CityID = " & to_sql(CityID,"number") & "" 'response.write sql on error resume next cn.Execute(sql) if err.number <> 0 then b_error = true end if on error goto 0 end sub sub db_select_view_luMetro view_luMetro_sql = "SELECT " & _ "CityID, " & _ "MajorCity, " & _ "State FROM luMetro" & _ "" if request("sortby") <> "" AND inStr(lcase(view_luMetro_sql),"order by") = 0 then view_luMetro_sql = view_luMetro_sql + " ORDER BY " & request("sortby") end sub sub db_update_view_luMetro sql = "UPDATE SET " & _ "MajorCity = " & to_sql(MajorCity,"text") & ", " & _ "State = " & to_sql(State,"text") & "" 'response.write sql on error resume next cn.execute(sql) if err.number <> 0 then b_error = true end if on error goto 0 end sub sub db_delete_view_luMetro sql = "DELETE FROM " & _ "" 'response.write sql on error resume next cn.Execute(sql) if err.number <> 0 then b_error = true end if on error goto 0 end sub do_search = request("do_search") ''' request form keys CityID = request("CityID") ''' request action action = lcase(request("action")) ''' action case handler select case action case "select_edit_lumetro" ' select the requested key record from database if CityID <> "" then db_select_edit_luMetro else b_error = true error_list.add "edit_edit_luMetro", "Specify record to select." end if case "insert_edit_lumetro" ' request form data and insert a new record into database validate_edit_lumetro if not b_error then db_insert_edit_lumetro end if case "update_edit_lumetro" ' request form data and update an existing database record validate_edit_lumetro if not b_error then if CityID <> "" then db_update_edit_lumetro else b_error = true error_list.add "update_edit_lumetro", "Specify record to update." end if end if case "delete_edit_lumetro" ' delete the requested key database record if CityID <> "" then db_delete_edit_lumetro response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted." else b_error = true error_list.add "delete_edit_lumetro", "Specify record to delete." end if case "update_view_lumetro"' request form data from edit grid to update existing database records ' this case is only created when a grid form's 'update' property is enabled validate_view_lumetro if not b_error then if then db_update_view_lumetro else b_error = true error_list.add "update_view_lumetro", "Specify record to update." end if end if case "delete_view_lumetro"' request form data from edit grid to delete existing database records ' this case is only created when a grid form's 'update' property is enabled if then db_delete_view_lumetro response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted." else b_error = true error_list.add "delete_view_lumetro", "Specify record to delete." end if end select ' no action was specified, so handle the default case(s) if CityID <> "" then db_select_edit_lumetro end if db_select_view_lumetro %> This is the admistation area for the ''luMetro" lookup table. This table could be used to manage and orgranize information (links,conent,classifieds) by major metropolotian areas. This could also be used to create drop-down lists of the metro areas. <P><br> <% display_errs display_msg %> <table class='headerTable'> <tr> <td class='headerTD'> Metropolitian Areas Lookup </td> </tr> </table> <table > <form name="edit_luMetro" action="luMetro.asp" method="GET" > <tr> <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=MajorCity" class=fieldFont title="">MajorCity</a></td> <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=State" class=fieldFont title="">State</a></td> </tr> <input type=hidden name="CityID" value="<% =CityID %>"> <tr> <td class='dataTD' > <input type=text name="MajorCity" size="" maxlength="50" value="<% =MajorCity%>"> </td> <td class='dataTD' > <input type=text name="State" size="" maxlength="50" value="<% =State%>"> </td> </tr> <tr> <td align=right class=dataTD colspan=3> <% if CityID = "" then %><input type=submit name=insert_button value=insert> <% end if %> <% if CityID <> "" then %><input type=submit name=delete_button value=delete onclick="document.edit_luMetro.action.value = 'delete_edit_luMetro'"> <% end if %> <% if CityID <> "" then %><input type=submit name=update_button value=update><% end if %> </td> <input type=hidden name="action" value="<% if CityID <> "" then %>update<% else %>insert<%end if %>_edit_luMetro"></tr> </form> </table> <% page_no = request("page_no") if page_no = "" then page_no = 1 if view_luMetro_sql <> "" then cmd.CommandText = view_luMetro_sql rs.Filter = "" rs.CursorLocation = 3 rs.CacheSize = 5 rs.Open cmd if not rs.EOF then rs.MoveFirst max_count = cInt(rs.PageCount) num_recs = rs.RecordCount rs.AbsolutePage = page_no results = true else results = false rs.Close end if else results = false end if rec_count = 0 %> <table class='headerTable'> <tr> <td class='headerTD'> luMetro </td> </tr> </table> <% if results = true then %> <table > <form name="view_luMetro" action="luMetro.asp" method="GET" > <tr> <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=CityID" class=fieldFont title="">CityID</a></td> <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=MajorCity" class=fieldFont title="">MajorCity</a></td> <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=State" class=fieldFont title="">State</a></td> </tr> <% do while not rs.EOF ':: read db record on error resume next CityID = rs("CityID") MajorCity = rs("MajorCity") State = rs("State") on error goto 0 %> <tr> <td class='dataTD' > <a href="luMetro.asp?CityID=<%=CityID%>"><% =CityID %></a> </td> <td class='dataTD' > <input type=text name="MajorCity" size="" maxlength="50" value="<% =MajorCity%>"> </td> <td class='dataTD' > <input type=text name="State" size="" maxlength="50" value="<% =State%>"> </td> </tr> <% rs.MoveNext rec_count = rec_count + 1 loop rs.Close %> <tr class=formtr> <td class=dataTD align=right colspan=3> <input type=submit name=update_button value=update> </td> </tr> <input type=hidden name="action" value="update_view_lumetro"> </form> </table> <% else %> <% end if %> <% ':: assure that any db resources are freed on error resume next rs.Close set rs = NOTHING cn.Close set cn = NOTHING user_cn.Close set user_cn = NOTHING on error goto 0 %>